home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Utilities / AmiSearchII / Installation-English < prev    next >
Encoding:
Text File  |  1997-10-09  |  2.5 KB  |  109 lines
  1. ;$VER:AmiSearch installation script
  2.  
  3. (complete 0)
  4. (set @default-dest "Work:")
  5.  
  6. ; Texts
  7.  
  8. (set #Warning-Txt
  9. (cat "Warning !\n\n\n"
  10. "AmiSearch II needs MUI 3.8+ to work.\n\n"
  11. "Without MUI AmiSearch II won't work...\n\n"
  12. ))(set #Path-Txt
  13. (cat "Please choose target directory."
  14. "An AmiSearchII drawer will be created there."
  15. ))(set #Path-Help
  16. (cat "This part allows you to choose the directory where AmiSearch II will be copied.\n\n"
  17. "An AmiSearch II drawer is created there, in order to allow a better index handling.\n\n"
  18. "The default one is Work:\n\n\n"
  19. ))
  20.  
  21. ; Main
  22.  
  23. (message #Warning-Txt)
  24. (set target
  25. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  26. ))
  27. (set @default-dest (tackon target "AmiSearchII"))
  28. (makedir (tackon target "AmiSearchII")(infos))
  29. (makedir (tackon target "AmiSearchII/Docs") (infos))
  30. (makedir (tackon target "AmiSearchII/Gfx"))
  31. (makedir (tackon target "AmiSearchII/ArchiveScripts"))
  32. (makedir (tackon target "AmiSearchII/BaseScripts"))
  33. (makedir (tackon target "AmiSearchII/Databases"))
  34. (makedir (tackon target "AmiSearchII/Prologs"))
  35.  
  36. (copyfiles
  37. (prompt "Copying software")
  38. (help @copy-files-help)
  39. (source "AmiSearch2")
  40. (dest (tackon target "AmiSearchII"))
  41. (infos))
  42.  
  43. (copyfiles
  44. (prompt "Copying archive handling script")
  45. (help @copy-files-help)
  46. (source "ArchiveScripts/AS2H")
  47. (dest (tackon target "AmiSearchII/ArchiveScripts"))
  48. (infos))
  49.  
  50. (copyfiles
  51. (prompt "Copying pictures")
  52. (help @copy-files-help)
  53. (source "Gfx")
  54. (dest (tackon target "AmiSearchII/Gfx"))
  55. (pattern "#?")
  56. (infos))
  57.  
  58. (complete 30)
  59.  
  60. (copyfiles
  61. (prompt "Copying automatic creation scripts")
  62. (help @copy-files-help)
  63. (source "BaseScripts")
  64. (dest (tackon target "AmiSearchII/BaseScripts"))
  65. (pattern "#?")
  66. (infos))
  67.  
  68. (copyfiles
  69. (prompt "Copying prologs")
  70. (help @copy-files-help)
  71. (source "Prologs")
  72. (dest (tackon target "AmiSearchII/Prologs"))
  73. (pattern "#?")
  74. (infos))
  75.  
  76. (complete 40)
  77. (copyfiles (prompt "Copying localisation") (source "Locale/AmiSearch2.cd") (dest "LOCALE:"))
  78.  
  79. (complete 50)
  80. (copyfiles
  81. (prompt "Copying manual")
  82. (help @copy-files-help)
  83. (source "Docs/English_Manual.guide")
  84. (dest (tackon target "AmiSearchII/Docs"))
  85. (infos))
  86.  
  87. (complete 75)
  88.  
  89. (copyfiles
  90. (prompt "Copying ReadMe.mui")
  91. (help @copy-files-help)
  92. (source "Docs/ReadMe.mui")
  93. (dest (tackon target "AmiSearchII/Docs"))
  94. (infos))
  95.  
  96. (set myassign
  97. (cat "assign AS2: " (tackon (expandpath target) "AmiSearchII")
  98. )
  99. )
  100.  
  101. (startup "AmiSearch II"
  102. (command myassign)
  103. (prompt "Adding assign to S:user-startup")
  104. (help @startup-help)
  105. )
  106. (run myassign)
  107.  
  108. (complete 100)
  109.